home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00762_SU-bt A&C.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  841 b   |  42 lines
  1. on MouseClick
  2.   global gBoutons, gNumSpr, gSurvolPrec
  3.   set gSurvolPrec to -1
  4.   beep()
  5.   gBoutons(relache, gNumSpr)
  6. end
  7.  
  8. on mouseDown
  9.   global gNumSpr, g1erSprLoc, gBoutons
  10.   set gNumSpr to -1
  11.   repeat with i = g1erSprLoc + 4 to g1erSprLoc + 5
  12.     if rollOver(i) then
  13.       set gNumSpr to i
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   if gNumSpr <> -1 then
  18.     if word 2 of the name of cast the castNum of sprite gNumSpr = "1" then
  19.       gBoutons(appuie, gNumSpr)
  20.     else
  21.       set gNumSpr to -1
  22.     end if
  23.   end if
  24. end
  25.  
  26. on mouseUp
  27.   global gNumSpr, g1erSprLoc
  28.   curseur(1)
  29.   set monNumSpr to -1
  30.   repeat with i = g1erSprLoc + 4 to g1erSprLoc + 5
  31.     if rollOver(i) then
  32.       set monNumSpr to i
  33.       exit repeat
  34.     end if
  35.   end repeat
  36.   if (monNumSpr <> -1) and (gNumSpr = monNumSpr) then
  37.     MouseClick()
  38.   else
  39.     pass()
  40.   end if
  41. end
  42.